home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac: Not for Sale / Another.not.for.sale (Australia).iso / fade into you / getting there / TCP⁄PPP⁄SLIP / Scripts / scr-IDS-BJP < prev    next >
Encoding:
Text File  |  1994-11-11  |  2.3 KB  |  81 lines  |  [TEXT/R*ch]
  1. !
  2. !    InterSLIP Gateway Script for the IDS World Network (155.212.1.2)
  3. !                        Version 1.0 (7/10/94)
  4. !                        Bill J. Parker (billpr@ids.net)
  5. !
  6. !    To use, simply place inside the "Gateway Scripts" folder in the InterSlip folder
  7. !    in your Preferences folder in your System Folder (whew!) and then select it from
  8. !    the pull-down menu in the InterSLIP Setup window. You should configure your IP
  9. !    address in the Setup window as well. Leaving 1006 for MTU is a good idea, too
  10. !    (something is needed in the IP and MTU fields, as well as the Username/Password
  11. !    fields, in order for this script to work. Contact support@ids.net if you aren't
  12. !    sure what your IP is (although it should also be configured in MacTCP by now).
  13. !    The IDS World Network doesn't support this script (but I don't think they mind
  14. !    me doing it :-) so DON'T send questions to them about it, send all questions about
  15. !    the script to me, since I wrote it. I DO NOT GUARANTEE THAT THIS SCRIPT WILL WORK
  16. !    ON ALL MACINTOSH MACHINES (ALTHOUGH I'VE GOT NO IDEA WHY IT WOULDN'T) AND I REALLY
  17. !    REALLY DO NOT ACCEPT RESPONSIBILITY FOR ANY LOSS OF DATA OR ANYTHING ELSE
  18. !    RESULTING FROM THE USE OF THIS SCRIPT (except of course when it works fine).
  19. !    I really hope nothing bad happens, though. --==[BJP]==--
  20. !    I will try to update the script for all IDS login changes in a timely fashion.
  21. !
  22. @originate
  23. note "Waiting for prompt..."
  24. matchclr
  25. matchstr 1 1 "login: "
  26. matchread 60
  27. note "No Login prompt"
  28. jump 99
  29. !
  30. ! If the Login prompt appeared, send the account name and wait for 
  31. ! the password prompt
  32. !
  33. @label 1
  34. note "Sending Account Name..."
  35. write "^5\13"
  36. matchclr
  37. matchstr 1 2 "Password: "
  38. matchread 60
  39. note "No password prompt!"
  40. jump 99
  41. !
  42. ! Send the password...
  43. !
  44. @label 2
  45. note "Sending Password..."
  46. write "^6\13"
  47. matchclr
  48. matchstr 1 4 "Packet mode enabled"
  49. matchstr 2 3 "Login incorrect."
  50. matchread 120
  51. jump 99
  52. !
  53. ! If something went wrong...
  54. !
  55. @label 3
  56. note "Login incorrect!"
  57. !
  58. !Gereral purpose error handler.
  59. !
  60. @label 99
  61. pause 1
  62. sound
  63. pause 60
  64. exit -1
  65. !
  66. ! If the login was successful, then set IP/MTU (which are configured in 
  67. ! InterSlip Setup)
  68. @label 4
  69. note "Setting IP..."
  70. SetIP "^7"
  71. note "Setting MTU..."
  72. SetMTU "^9"
  73. note "SLIP Enabled!"
  74. exit 0
  75. !
  76. ! Answer and Hangup are currently unused in gateway scripts, but the 
  77. ! manual suggests using them for future compatibility.
  78. !
  79. @answer
  80. @hangup
  81. exit 0